home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Geos / GEOS128 / GeosD81 / CS57.D81 / geos to seq (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.4 KB  |  139 lines
  1. 0 IFPEEK(49153)=149THENPRINT"[147]":GOTO7:    REM:SEE LINE 5000
  2. 1 POKE53280,0:POKE53281,0:PRINTCHR$(14):PRINT"[147]"
  3. 2 PRINT"     [158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  4. 3 PRINT"     [171] [195][207][206][214][197][210][212] [199]EO[212][197][216][212] [212][207][160][211][197][209].[198][201][204][197] [179]"
  5. 4 PRINT"     [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":FORN=1TO11:PRINT:NEXT
  6. 6 IFA=0THENA=1:LOAD"CONVERSION CODE",8,1
  7. 7 POKE52,96:POKE56,96:F$="TEMP01,S":Y=52992:FORX=1TOLEN(F$):V=ASC(MID$(F$,X,1))
  8. 8 POKEY,V:Y=Y+1:NEXT:GOTO190
  9. 9 PRINT"[206]AME FOR EVENTUAL CONVERTED FILE":PRINT"(MAX.10 CHARACTERS)":INPUTC$
  10. 10 IFLEN(C$)>10THENC$=LEFT$(C$,10)
  11. 11 G$=C$:C$=C$+",S,W"
  12. 12 Y=53008:FORX=1TOLEN(C$):V=ASC(MID$(C$,X,1)):POKEY,V:Y=Y+1:NEXT:POKE2,LEN(C$)
  13. 13 PRINT"[196]O YOU WISH TO USE DRIVE 9 WHEN
  14. 14 [133]"WRITING THE CONVERTED FILE (Y/N)";S$
  15. 15 [139]S$[178]"Y"[167]DV[178]9:[151]49533,9
  16. 16 [139]S$[179][177]"Y"[167]DV[178]8:[151]49533,8
  17. 17 [139]DV[178]9[167][153]"(null)LEASE PLACE A DISK IN DRIVE 9 AND
  18. 18 IFDV=9THENPRINT"TYPE ANY KEY TO CONTINUE":POKE198,0:WAIT198,1
  19. 20 GOTO305
  20. 190 PRINT"[147][208]LACE SOURCE ([199][197][207][211]) DISK IN DRIVE 8"
  21. 200 PRINT"[212]YPE RETURN[146] WHEN READY..."
  22. 210 GETA$:IFA$<>CHR$(13)THENGOSUB970:GOTO210
  23. 220 POKE53280,0
  24. 292 GOSUB680
  25. 294 FORX=56328TO56331:POKEX,0:NEXT
  26. 300 POKE56328,1
  27. 301 F$="":FORF=1TOLEN(N$)
  28. 302 IFASC(MID$(N$,F,1))>192THENH$=CHR$(ASC(MID$(N$,F,1))-96)
  29. 303 IFASC(MID$(N$,F,1))<192THENH$=CHR$(ASC(MID$(N$,F,1)))
  30. 304 F$=F$+H$:NEXT:PRINT"[147]":GOTO9
  31. 305 IFF$=G$ANDDV=8THENPRINT"[147][196]IFFERENT NAME REQUIRED FOR
  32. 306 [139]F$[178]G$[175]DV[178]8[167][153]"CONVERTED FILE. (null)RY AGAIN!":[153]:[137]9
  33. 308 F$[178]F$[170]",U,R"
  34. 310 [159]15,8,15:[159]8,8,0,F$:[132]15,EN,EB$,ET,ES
  35. 320 [139]EN[179][177]0[167][160]8:[160]15:[153]"LOAD";[166]20[171][195](EB$)[173]2)EB$:N$[178]"":[137]290
  36. 322 [153]"LOAD"[166]16[171][195](F$)[173]2)"LOADING "[170]F$
  37. 324 S$[178]"STR$(null)RIGHT$(null)VALCLOSE(null)VAL(null)(null)CLOSEPEEK(null)(null)(null) - STR$(null)CLOSE(null)(null)(null)CLOSESTR$RIGHT$(null)(null)(null)(null)PEEK
  38. 325 PRINT""SPC(20-LEN(S$)/2)S$
  39. 329 D=30:DIMR(D,1):FORT=1TOD
  40. 330 GET#8,R$:IFR$=""THENTT=T:T=D:CLOSE8:CLOSE15:GOTO336
  41. 331 R(T,0)=ASC(R$)
  42. 332 GET#8,R$:IFR$=""THENR$=CHR$(0)
  43. 333 R(T,1)=ASC(R$)
  44. 334 NEXT
  45. 336 REM:
  46. 340 S$="WRITING NEW PAGES":PRINT""SPC(20-LEN(S$)/2)S$:T2=1
  47. 370 FORF=1TOTT-1:T1$="TEMP":T2$=RIGHT$(STR$(T2),LEN(STR$(T2))-1)
  48. 371 IFLEN(T2$)=1THENT2$="0"+T2$
  49. 372 T3$=T1$+T2$
  50. 373 OPEN4,8,4,T3$+",S,W":CLOSE4:T2=T2+1:IFT2=TTTHEN376
  51. 374 NEXT
  52. 376 S$="GIVING THEM DIRECTIONS":PRINT""SPC(20-LEN(S$)/2)S$
  53. 377 OPEN15,8,15,"I0":OPEN2,8,2,"#":T=18:S=1:N=0:T2=1
  54. 378 FORF=1TOTT-1:T1$="TEMP":T2$=RIGHT$(STR$(T2),LEN(STR$(T2))-1)
  55. 379 IFLEN(T2$)=1THENT2$="0"+T2$
  56. 380 T3$=T1$+T2$
  57. 382 PRINT#15,"U1:2 0"+STR$(T)+STR$(S)
  58. 384 GET#2,A$:TN=ASC(A$+CHR$(0)):GET#2,A$:SN=ASC(A$+CHR$(0))
  59. 385 IFN>7THENN=0:T=TN:S=SN:GOTO382
  60. 386 PRINT#15,"B-P:2,"+STR$(N*32+2)
  61. 388 GET#2,A$:FT=ASC(A$+CHR$(0)):IFFT<>129THENN=N+1:GOTO385
  62. 390 PRINT#15,"B-P:2,"+STR$(N*32+5):D$=""
  63. 392 GET#2,A$:IFA$<>CHR$(160)ANDLEN(D$)<16THEND$=D$+A$:GOTO392
  64. 393 IFD$<>T3$THENN=N+1:GOTO385
  65. 394 IFD$=T3$THENPRINT#15,"B-P:2,"+STR$(N*32+3):PRINT#2,CHR$(R(F,0));
  66. 395 PRINT#15,"U2";2;0;T;S
  67. 396 IFD$=T3$THENPRINT#15,"B-P:2,"+STR$(N*32+4):PRINT#2,CHR$(R(F,1));
  68. 397 PRINT#15,"U2";2;0;T;S
  69. 398 N=N+1:T2=T2+1:IFT2=TTTHENCLOSE2:CLOSE15:GOTO403
  70. 402 NEXT
  71. 403 PRINT:S$="[212]RANSLATING [199][197][207][211]":PRINTSPC(20-LEN(S$)/2)S$:PRINT
  72. 405 POKE38,8:SYS49152
  73. 406 GOSUB477
  74. 410 H=PEEK(56331):Y=H:GOSUB450:H=P
  75. 411 M=PEEK(56330):Y=M:GOSUB450:M=P
  76. 412 S=PEEK(56329):Y=S:GOSUB450:S=P
  77. 413 T=PEEK(56328):Y=T:GOSUB450:T=P
  78. 420 PRINT"[195]ONVERSION COMPLETED IN"
  79. 430 PRINTH" HOURS"
  80. 431 PRINTM" MINUTES
  81. 432 Z$[178][201]([196](T),[195]([196](T))[171]1)
  82. 433 S$[178][196](S)[170]"."[170]Z$:[153]S$" SECONDS"
  83. 434 [153]"(null)OUR CHR$VAL(null)(null) SOURCE DISK WILL REQUIRE
  84. 435 PRINT"VALIDATION ONCE YOU RETURN TO THE
  85. 436 [153]"CHR$VAL(null)(null) ENVIRONMENT."
  86. 440 [128]:[143] DMH 1994
  87. 450 P[178][181](Y[173]16)[172]10[170](Y[175]15):[142]
  88. 477 [159]15,8,15,"I0":[159]2,8,2,"#":T[178]18:S[178]1:N[178]0:T2[178]1
  89. 478 [129]F[178]1[164]TT[171]1:T1$[178]"TEMP":T2$[178][201]([196](T2),[195]([196](T2))[171]1)
  90. 479 [139][195](T2$)[178]1[167]T2$[178]"0"[170]T2$
  91. 480 T3$[178]T1$[170]T2$
  92. 482 [152]15,"U1:2 0"[170][196](T)[170][196](S)
  93. 484 [161]#2,A$:TN[178][198](A$[170][199](0)):[161]#2,A$:SN[178][198](A$[170][199](0))
  94. 485 [139]N[177]7[167]N[178]0:T[178]TN:S[178]SN:[137]482
  95. 486 [152]15,"B-P:2,"[170][196](N[172]32[170]2)
  96. 488 [161]#2,A$:FT[178][198](A$[170][199](0)):[139]FT[179][177]129[167]N[178]N[170]1:[137]485
  97. 490 [152]15,"B-P:2,"[170][196](N[172]32[170]5):D$[178]""
  98. 492 [161]#2,A$:[139]A$[179][177][199](160)[175][195](D$)[179]16[167]D$[178]D$[170]A$:[137]492
  99. 493 [139]D$[179][177]T3$[167]N[178]N[170]1:[137]485
  100. 494 [139]D$[178]T3$[167][152]15,"B-P:2,"[170][196](N[172]32[170]2):[152]2,[199](0);
  101. 495 [152]15,"U2";2;0;T;S
  102. 498 N[178]N[170]1:T2[178]T2[170]1:[139]T2[178]TT[167][160]2:[160]15:[142]
  103. 499 [130]
  104. 680 [159]15,8,15,"I0":[159]2,8,2,"#":X[178]0:M[178]0:T[178]18:S[178]1:N[178]0
  105. 690 [153]"LOAD(null)HE (null)(null)(null) FILES ON THIS DISK ARE:"
  106. 700 [152]15,"U1:2 0"[170][196](T)[170][196](S)
  107. 710 [161]#2,A$:TN[178][198](A$[170][199](0)):[161]#2,A$:SN[178][198](A$[170][199](0))
  108. 720 [152]15,"B-P:2,"[170][196](N[172]32[170]2)
  109. 730 [161]#2,A$:FT[178][198](A$[170][199](0)):[139]FT[179][177]131[175]FT[179][177]195[167]N[178]N[170]1:[137]810
  110. 770 [152]15,"B-P:2,"[170][196](N[172]32[170]5):D$[178]""
  111. 780 [161]#2,A$:[139]A$[179][177][199](160)[175][195](D$)[179]16[167]D$[178]D$[170]A$:[137]780
  112. 790 X[178]X[170]1:M[178]M[170]1:[139]M[178]16[167]M[178]0:[137]840
  113. 800 [153]"   "[170][199](34)[170]D$[170][199](34):N[178]N[170]1
  114. 810 [139]N[179]8[167]720
  115. 820 N[178]0:T[178]TN:S[178]SN:[139]T[179][177]0[167]700
  116. 830 [139]T[178]0[167]860
  117. 840 [153]"        TYPE RETURNWAIT TO SEE MORE"
  118. 850 [153]"    TYPE _ AND THEN RETURNWAIT TO ABORT"
  119. 860 [139]X[178]0[167][153]"        NONE":[137]930
  120. 870 [153]"        PLACE CURSOR NEXT TO NAME"
  121. 880 [153]"   AND TYPE RETURNWAIT TO LOAD":[133]N$
  122. 890 [139]N$[178]"_"[167]N$[178]"":[137]920
  123. 900 [139]N$[179][177]""[167][160]2:[160]15:[142]
  124. 910 [139]T[179][177]0[167]690
  125. 920 [153]"LOAD";
  126. 930 [160]2:[160]15:[153]"    PLACE ANOTHER CHR$VAL(null)(null) DISK IN DRIVE"
  127. 940 [153]"       TYPE RETURNWAIT WHEN READY OR"
  128. 941 [153]"    TYPE QWAIT TO QUIT PROGRAM"
  129. 950 [161]A$:[139]A$[179][177][199](13)[175]A$[179][177]"Q"[167][141]970:[137]950
  130. 955 [139]A$[178]"Q"[167][128]
  131. 960 [151]53280,0:[137]680
  132. 970 A[178]A[170]1:[139]A[177]10[167][151]53280,2
  133. 980 [139]A[177]20[167][151]53280,0:A[178]0
  134. 990 [142]
  135. 2000 [159]15,9,15:[132]15,A,B$,C,D:[153]A,B$,C,D:[160]15
  136. 5000 [143]:PROGRAMMED BY DOREEN HORNE FOR
  137. 5001 [143]:THE PUBLIC DOMAIN.
  138. 5002 [143]:BRISBANE AUSTRALIA 1994
  139.